<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>3767</cardID>
<listID>2261</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>736</width>
<height>504</height>
</cardSize>
<script>-- ••••••••••---- Hyper MapEdit, v1.0-- ©1993 Nathan Gasser-- Distribute freely; comments welcome: gasser@seas.upenn.edu---- ••••••••••-- •••••••••• mouse handleron mouseDownglobal gRegionif the shiftKey is "down" thenpalette MapEdit,"25,25"show window "scroll" at 25,325show msg at 143,374elseif gRegion is "rect" then newRectelse if gRegion is "circle" then newCircleelse if gRegion is "poly" then newPolyend ifend mouseDownfunction spotButtonlock screendomenu "new button"set the style of cd btn "new button" to opaqueset the icon of cd btn "new button" to "point"set the showName of cd btn "new button" to falseset the rect of cd btn "new button" to ¬mouseH()-4, mouseV()-4,mouseH()+4, mouseV()+4-- set the script of cd btn "new button" to cd fld "point script"choose the browse toolunlock screenrepeat until the mouse is "up"set the loc of cd btn "new button" to the mouseLocend repeatget the loc of cd btn "new button"set the name of cd btn "new button" to the ticksplay "pling"return itend spotButtonon newRectglobal gMapFileput spotButton() into loc1wait until the mouse is "down"put "Defining Rectangle: click on the opposite corner..." into msgput spotButton() into loc2put min(item 1 of loc1, item 1 of loc2) into item 1 of locULput min(item 2 of loc1, item 2 of loc2) into item 2 of locULput max(item 1 of loc1, item 1 of loc2) into item 1 of locLRput max(item 2 of loc1, item 2 of loc2) into item 2 of locLRget getURL("Rectangle")if it is not empty thenput "rect" && it && locUL && locLR & return after gMapFileend ifhiRectangleend newRecton newPolyglobal gMapFile, gLastURLput spotButton() & space into locListrepeat foreverput "Defining Polygon: click the next point (option-click anywhere to end)..." into msgwait until the mouse is "down"if the optionKey is "up" thenput spotButton() & space after locListput the number of words in locListelseexit repeatend ifend repeatask "Polygon defined. Enter URL:" with gLastURLif it is empty thenlock screenget the number of cd btnsrepeat with i = 0 to ((the number of words in locList) -1)select cd btn (it - i)domenu "clear button"end repeatchoose the browse toolunlock screenelseput it into gLastURLput "poly" && it && locList & return after gMapFileend ifhiPolyend newPolyon newCircleglobal gMapFileput spotButton() into theCenterwait until the mouse is "down"put "Defining Circle: click on a point on the circle's edge..." into msgput spotButton() into theEdgeget getURL("Circle")if it is not empty thenput "circle" && it && theCenter && theEdge & return after gMapFileend ifhiCircleend newCirclefunction getURL shapeglobal gLastURLask shape && "defined. Enter URL:" with gLastURLif it is empty thenget the number of cd btnslock screenselect cd btn itdomenu "clear button"select cd btn (it-1)domenu "clear button"choose the browse toolunlock screenreturn emptyelseput it into gLastURLreturn itend ifend getURL-- •••••••••• region buttonson hiCircleglobal gRegionput "circle" into gRegionput "To define a new circle, click at the circle's center." into msgend hiCircleon hiPolyglobal gRegionput "poly" into gRegionput "To define a new polygon, click at the first point." into msgend hiPolyon hiRectangleglobal gRegionput "rect" into gRegionput "To define a new rectangle, click the one corner." into msgend hiRectangle-- •••••• load, save, erase, helpon loadPicturedimanswer file "Locate PICT file to load" of type PICTif it is empty then exit loadPictureput it into pictFilePictToClip pictFile,1lock screenset the cursor to watchchoose the pencil tooldomenu "paste picture"drag from 10,100 to 0,0choose browse toolunlock screenend loadPictureon saveMapglobal gMapFiledimask "Enter a default URL, for when the user clicks on an area you haven't defined:"if it is empty then exit saveMapput "default" && it into defaultLineask file "Enter a name for your map file:"if it is empty then exit saveMapput it into lyleopen file lylewrite "# ISMAP map generated by Hyper Map Edit v1.0, (c) gasser@eniac.seas.upenn.edu" ¬& return & return & defaultLine & return & return & gMApFile to file lyleclose file lyleend saveMapon erasePictureglobal gMapFiledimanswer "Erase current picture and map?" with "No" or "Yes"if it is "yes" thenput empty into gMapFileset the cursor to watchlock screenset lockMessages to truedomenu "New Card"go to cd 1domenu "Delete Card"unlock screenend ifend erasePictureon showHelpdimif the optionKey is "down" thenset the visible of bg fld "help" to not the visible of bg fld "help"elsetextoid "Hyper MapEdit Help" , "bg fld" & quote & "help" & quote, "bigWindoid","80,30,500,400"end ifend showHelp-- •••••••• administriviaon openCardglobal gLastURLput "http://" into gLastURLpalette MapEdit,"25,25"show window "scroll" at 25,365show msg at 143,374end openCardon closeCardif there is a window "mapEdit" then close window "MapEdit"if there is a window "scroll" then close window "Scroll"end closeCardon dimif there is a window "mapEdit" thenwait 5set the hilitedButton of window "MapEdit" to noneend ifend dim</script>
